home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 009a / snpd0493.zip / RAND1.C < prev    next >
C/C++ Source or Header  |  1993-04-05  |  1KB  |  57 lines
  1. .I 31 1
  2. #include <time.h>
  3. .I 80 1
  4.         return 0;
  5. .D 81 1
  6. .I 127 4
  7.         i = (int)fmod(ij/177.0, 177.0) + 2;
  8.         j = (int)fmod(ij      , 177.0) + 2;
  9.         k = (int)fmod(kl/169.0, 178.0) + 1;
  10.         l = (int)fmod(kl      , 169.0);
  11. .D 128 4
  12. .I 134 2
  13.                 s = (float)0.0;
  14.                 t = (float)0.5;
  15. .D 135 2
  16. .I 138 1
  17.                         m = (int)fmod( fmod(i*j,179.0)*k , 179.0 );
  18. .D 139 1
  19. .I 142 1
  20.                         l = (int)fmod( 53.0*l+1.0 , 169.0 );
  21. .D 143 1
  22. .I 145 1
  23.                         t = (float)(0.5 * t);
  24. .D 146 1
  25. .I 150 3
  26.         c  = (float)(  362436.0 / 16777216.0);
  27.         cd = (float)( 7654321.0 / 16777216.0);
  28.         cm = (float)(16777213.0 / 16777216.0);
  29. .D 151 3
  30. .I 159 1
  31.         return 0;
  32. .D 160 1
  33. .I 177 1
  34.                 if ( uni < 0.0F )
  35. .D 178 1
  36. .I 187 1
  37.                 if ( c < 0.0F )
  38. .D 188 1
  39. .I 190 1
  40.                 if ( uni < 0.0F )
  41. .D 191 1
  42. .I 194 1
  43.         return 0;
  44. .D 195 1
  45. .I 224 10
  46.         maxs_sig   = (float)(60.0 + 60.0/60.0 + 24.0/60.0/60.0 +
  47.               366.0/24.0/60.0/60.0);
  48.         maxs_insig = (float)(60.0 + 60.0*60.0 + 24.0*60.0*60.0 +
  49.               366.0*24.0*60.0*60.0);
  50.  
  51.         s_sig      = (float)(s + m/60.0 + h/60.0/60.0 + d/24.0/60.0/60.0);
  52.         s_insig    = (float)(s + m*60.0 + h*60.0*60.0 + d*24.0*60.0*60.0);
  53.  
  54.         s1 = (int)(s_sig   / maxs_sig   * 31328.0);
  55.         s2 = (int)(s_insig / maxs_insig * 30081.0);
  56. .D 225 8
  57.